home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / wp / ged11.lha / Install / data / main / GoldED / ARexx / unLock.ged < prev   
Text File  |  1993-06-23  |  448b  |  22 lines
  1. /* $VER 0.9, ©1993 Dietmar Eilert. Unlock GUI. */
  2.  
  3. /*
  4.  
  5.  Useful if some script failed, leaving the editor in a deadlock situation
  6.  (GUI locked). DO NEVER CALL THIS MACRO UNLESS YOU HAVE TO DO SO. It is
  7.  dangerous. If you unlock the GUI while some other ARexx script is
  8.  controlling GoldED, the system might break.
  9.  
  10. */
  11.  
  12. do n = 1 to 5
  13.  
  14.     name = 'GOLDED.' || n
  15.  
  16.     if show('p', name) then do
  17.  
  18.         address value name
  19.         'UNLOCK'
  20.     end
  21. end
  22.